home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / cybint12 / bin / cinema.dxr / 00045_sair1.ls < prev    next >
Encoding:
Text File  |  1996-12-14  |  484 b   |  27 lines
  1. on mouseUp
  2.   global act, qual
  3.   set act to 1
  4.   if the visible of sprite 15 = 1 then
  5.     set the movieRate of sprite 15 to 0
  6.     set qual to 15
  7.     InVis(15)
  8.   else
  9.     set the sound of cast 19 to 0
  10.     set qual to 16
  11.     InVis(16)
  12.   end if
  13.   sound playFile 2, "..\som\ovo.wav"
  14.   startTimer()
  15.   repeat while the timer < 20
  16.     nothing()
  17.   end repeat
  18.   onVis(20)
  19.   updateStage()
  20.   startTimer()
  21.   repeat while the timer < 30
  22.     nothing()
  23.   end repeat
  24.   sound stop 2
  25.   onVis(24, 26)
  26. end
  27.